home *** CD-ROM | disk | FTP | other *** search
/ Net Connect / NetConnect - Version 1.iso / programs / amirc / rexx / leave.amirx next >
Encoding:
Text File  |  1996-03-28  |  337 b   |  19 lines
  1. /* LEAVE.AMIRX -- Leave a channel with a message
  2. \\ written by Oliver Wagner
  3. //
  4. \\ Put this script in PROGDIR:rexx/ and add this as an alias with the
  5. // command:  "/alias leave /rx leave %p"
  6. \\
  7. */
  8.  
  9. PARSE ARG ARGS
  10. OPTIONS RESULTS
  11.  
  12. if ARGS = "" then do
  13.    "echo P="d2c(27)"b«Error» Usage: LEAVE text"
  14.    exit
  15. end
  16.  
  17. 'say 'ARGS
  18. 'say /!leave'
  19.